home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 146 / Tiger_Disk_146_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ende c_046 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  320b  |  9 lines
  1. 10 print"[147]";:fori=1toi+8:forj=14to0step-10:forx=1tox+5:poke646,x+1
  2. 15 poke53280,.:poke53281,.:poke56325,68
  3. 30 printtab(j)"     [146]  [146]  [146]  [146] [145][169][163][163][163][163][169][223][169] ";:
  4. 40 :printtab(4*x)"";
  5. 50 printtab(x)"";::next
  6. 51 print"";:poke646,3+j:  next:print;:print;:
  7. 53 printtab(i)"  [160] [160][160] [146]  [146]  [146]  [146]  [146] [145][163]ende[163][163]"
  8. 55 print"[153][160][160]           ende [145]" :next:poke56325,55
  9.